home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1995 November / EnigmA AMIGA RUN 02 (1995)(G.R. Edizioni)(IT)[!][issue 1995-11][Skylink CD].iso / earcd / misc / a8085.lha / A8085 V1.0 / SRC / CountBits.a < prev    next >
Text File  |  1995-07-31  |  535b  |  28 lines
  1. ; Count bits in a 4 byte bitfield (here 16)
  2.  
  3.        inc Kernal.i
  4.        org $1000
  5. bdata: dc.b %11010100,%11010001,%01001001
  6. edata: dc.b                              %10111010
  7. txt:   dc.b "There are ",0," bits in the field!",10,0
  8.  
  9. start: lxi h,bdata
  10.        mvi b,edata-bdata+1
  11.        mvi c,0
  12. loop1: mov a,m
  13.        mvi e,8
  14. loop2: ral
  15.        jnc nobit
  16.        inr c
  17. nobit: dcr e
  18.        jnz loop2
  19.        inx h
  20.        dcr b
  21.        jnz loop1
  22.        lxi h,txt
  23.        call print
  24.        mov a,c
  25.        call printacc
  26.        call print
  27.        hlt
  28.